unit FrmOrderProcess;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, BaseFrm, DataPersistentUnit, RzButton, dxExEdtr,
  dxCntner, dxTL, dxDBCtrl, dxDBGrid, RzEdit, StdCtrls, Mask, RzLabel, DB,
  DBClient;

type
  TForm_OrderProcess = class(TfrmBase)
    Panel1: TPanel;
    Panel2: TPanel;
    Panel5: TPanel;
    img_CloseFormButton: TImage;
    btnDispatch: TRzBitBtn;
    Panel3: TPanel;
    RzLabel1: TRzLabel;
    RzLabel2: TRzLabel;
    RzLabel3: TRzLabel;
    EdKeyWords: TRzEdit;
    RzDateTimeEdit1: TRzDateTimeEdit;
    RzDateTimeEdit2: TRzDateTimeEdit;
    BtnFind: TRzBitBtn;
    dxDBGrid1: TdxDBGrid;
    ClientDataSet1: TClientDataSet;
    DataSource1: TDataSource;
    ClientDataSet2: TClientDataSet;
    procedure img_CloseFormButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    rdmDS: TRDMDataSet;
  public
    { Public declarations }
  end;

var
  Form_OrderProcess: TForm_OrderProcess;

implementation

uses DMFrm;

{$R *.dfm}

procedure TForm_OrderProcess.img_CloseFormButtonClick(Sender: TObject);
begin
  self.Close();
end;

procedure TForm_OrderProcess.FormCreate(Sender: TObject);
begin
  inherited;
  rdmDs := TRDMDataSet.GetInstance();
  ClientDataSet1.RemoteServer := dm.conn;
  ClientDataSet2.RemoteServer := dm.conn;
  RzDatetimeEdit1.Date := now();
  RzDatetimeEdit2.Date := now();
end;

initialization
  RegisterClass(TForm_OrderProcess);

finalization
  UnregisterClass(TForm_OrderProcess);

end.
